home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 39
/
Amiga Format CD39 (1999-04-13)(Future Publishing)(GB)[!][issue 1999-05].iso
/
-seriously_amiga-
/
wb
/
selector
/
installer
< prev
next >
Wrap
Text File
|
1999-03-02
|
4KB
|
119 lines
resident >nil: "`which selector`" pure add
cd install
set t "@text '"
set m "'@ @text '"
set e "'@"
selector note $t This script helps you to decide $m which of the executable files $m to install. $e
execute getversions /selector c:selector
set aa `/tools/getver /selector`
if $aa GT `/tools/getver C:selector` VAL
if `selector yesno $t Copy Selector to C: ? $m (This is the main program) $version` EQ Yes
copy /selector C:
endif
endif
if not exists s:user-startup
echo >>s:user-startup " "
endif
/tools/getline s:user-startup opa resident C:selector
if "$opa" EQ ""
if `selector yesno $t Make Selector resident $m in S:user-startup? $m This will make things faster $m and often save memory. $e` EQ Yes
setenv opa "Resident C:Selector pure add"
/tools/changeline s:user-startup opa resident C:selector
endif
endif
;selector docs.sel
resident /tools/chopword pure add
run >nil: selector messy "Please wait while analysing your system"
unsetenv aa
unsetenv bb
unset aa
unset bb
list >t:instemp /tools/ files pat ~(#?.info) lformat "/tools/getver >env:aa /tools/%n *N /tools/getver >env:bb C:%n *Nif $aa GT $bb VAL*Nsetenv %n button*Nelse*Nsetenv %n *"text @is installed@*"*Nendif"
;ttx t:instemp
execute t:instemp
echo >t:instemp "settings off*Ngap 0*Ncolumns 2*Nflow right*Ntextcol white"
list >>t:instemp /tools/ files pat ~(#?.info) lformat "button %n exec 'execute getinfo %n'*N[%n] Install exec 'copy /tools/%n C:' setenv %n 'text @is installed@' update"
echo >>t:instemp "x 640*Ny 11*Ntitle Installer"
set aa `/tools/getver /tools/extras/MagicColors`
if $aa GT `/tools/getver SYS:wbstartup/MagicColors` VAL
setenv MagicColors button
else
setenv MagicColors "text @is installed@"
endif
echo >>t:instemp "button MagicColors exec 'execute getinfo MagicColors /tools/extras/ SYS:WBStartup/'*N[MagicColors] Install exec 'copy /tools/extras/MagicColors#? SYS:WBStartup' setenv MagicColors 'text @is installed@' update"
setenv ExecuteHack button
if exists C:execute.orig
set aa `/tools/getver /tools/extras/execute`
if $aa GT `/tools/getver C:execute` VAL
setenv ExecuteHack button
else
setenv ExecuteHack "text @is installed@"
endif
endif
echo >>t:instemp "button ExecuteHack exec 'execute getexinfo'*N[ExecuteHack] Install exec 'execute inex' setenv ExecuteHack 'text @is installed@' update"
echo "Install Info"
echo "------------"
echo " "
echo "Press the buttons in the left column for info about"
echo "the programs. Press a button in the right column to"
echo "install the program."
echo " "
echo "You don't have to install all programs. Press the"
echo "left buttons to read about the programs and decide if"
echo "you want to install them or not. You can always run this"
echo "install tool later to install more tools."
echo " "
echo "The tools that I think is the most important to install"
echo "is WBRun, MagicColors (if you not allready have a similar"
echo "program installed), and perhaps RequestString."
echo " "
echo "Close the button window when ready installing."
selector t:instemp
echo ""
list >t:instemp /tools/ files pat ~(#?.info) lformat "unsetenv %n"
execute t:instemp
delete >nil: t:instemp
unsetenv executehack
unsetenv opa
unsetenv magiccolors
if exists c:wbrun
if exists libs:MagicColors.info
set aa `/tools/getver sys:libs/parm.library`
else
set aa `/tools/getver libs:parm.library`
endif
if `/tools/getver /tools/extras/parm.library` GT $aa VAL
execute getversions /tools/extras/parm.library libs:parm.library
if `selector yesno $t parm.library is needed for WbRun $m Install it? $version` EQ Yes
copy /tools/extras/parm.library libs:
endif
endif
endif
resident chopword remove
echo " "
echo "The installation is ready..."